(describe-function-1): Test function for obsolescence only if it is a

symbol.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 7fe85001c3e2332a32d07280f4c842139d4212ba..cdbc13f6781c8e30de277297e2f6bdb0b78685aa 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -307,7 +307,10 @@ Return (USAGE . DOC) or nil if there's no usage info."
               (setq doc (cdr usage)) (car usage))
              (t "[Missing arglist.  Please make a bug report.]")))
       (terpri)
-      (let ((obsolete (get function 'byte-obsolete-info)))
+      (let ((obsolete (and
+                      ;; function might be a lambda construct.
+                      (symbolp function)
+                      (get function 'byte-obsolete-info))))
        (when obsolete
          (terpri)
          (princ "This function is obsolete")